1:
2:
3:
4:
5:
6:

For I := 0 To ListBox1.Items.Count -1 Do
  // Prüfen
  If I = 2 Then
    ListBox2.Items.Add ('2. Zeile ' + ListBox1.Items [I])
  Else
    ListBox2.Items.Add (ListBox1.Items [I]);					

1:

Code					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

var
  wc: TWndClassEx = (
    cbSize          : SizeOf(TWndClassEx);
    Style           : CS_HREDRAW or CS_VREDRAW;
    lpfnWndProc     : @WndProc;
    cbClsExtra      : 0;
    cbWndExtra      : 0;
    hbrBackground   : COLOR_APPWORKSPACE;
    lpszMenuName    : nil;
    lpszClassName   : ClassName;
    hIconSm         : 0;
  );
  msg: TMsg;
begin
  InitCommonControls;

  wc.hInstance  := hInstance;
  wc.hIcon      := LoadIcon(0, IDI_APPLICATION);
  wc.hCursor    := LoadCursor(0, IDC_ARROW);

  RegisterClassEx(wc);
  hwndMain := CreateWindowEx(0, ClassName, AppName, WS_CAPTION or WS_VISIBLE or
    WS_SYSMENU or WS_MINIMIZEBOX or WS_MAXIMIZEBOX or WS_SIZEBOX,
    Integer(CW_USEDEFAULT),Integer(CW_USEDEFAULT), WindowWidth, WindowHeight, 0,
    0, hInstance, nil);

  hAccelTbl := LoadAccelerators(hInstance, MAKEINTRESOURCE(100));

  while true do
  begin
    if not GetMessage(msg, 0, 0, 0) then
      break;
    if TranslateAccelerator(hWndMain, hAccelTbl, msg) = 0 then
    if IsDialogMessage(hWndMain, msg) = FALSE then
    begin
      TranslateMessage(msg);
      DispatchMessage(msg);
    end;
  end;
  ExitCode := msg.wParam;
end.