Memo1.Lines[0] + Memo1.Lines[1];

2개만이 아니라 연속으로 출력하려고 하는데요

Memo1.Lines.Add('A');
Memo1.Lines.Add('B');
Memo1.Lines.Delimiter:=chr(28);
ShowMEssage(Memo1.Lines.DelimitedText);

콤파일 시 이런 메시지가 나옵니다. 제가 뭔가 사용을 잘못한것인지...
Undeclared identifier: 'Delimiter'
Undeclared identifier: 'DelimitedText'

질문을 명확하게 다시한번 드립니다.

procedure TForm1.Button1Click(Sender: TObject);
var CHarray : array[1..100] of integer;
ii:integer;
begin
For ii:=1 to 100 do begin
CHarray[ii]:=ii+3;
end;
For ii:=1 to 100 do begin
Memo1.Lines.Add(IntToStr(CHarray[ii]));
end;
end;

위의 경우에 출력이
4
5
6
7
.
.
이렇게 아래로 나오는 데 이것을 연속해서 옆으로 붙이고 싶다는 것입니다.
4567......이렇게요.

다음과 같이 하면 line을 바꾸지 않고 계속 Memo에 추가됩니다.



Memo1.Text:=Memo1.Text+'A';
Memo1.Text:=Memo1.Text+'B';

감사합니다. 그런 방법이 있었군요.
한가지 더. 정지시킬 때까지 무한 루프일 경우는 어떻게 될까요.
Memo에 출력할 때 Line feed가 없는 Format을 정해주어야 할 듯한데.

변수 하나 두시고 취소 버튼만드셔서 컨트롤하셔요.

루프중에 프로그램이 응답없음이 되지 않도록

Application.ProcessMessages; 를 넣어주시고

무한 루프 돌릴시엔 그냥은 for문으론 안되니까 while문으로 해주시구요. (방법이야 있지만 더 번거로운 관계로...)

굳이 배열을 선언해서 값을 넣으실 필요는 없어보입니다만... 다른 곳에서 참고할 변수도 아니고...



type
...

private
IsCancel: Boolean;
public
end;
...

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
IsCancel := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
CHarray: Array[1..1000] of Integer;
ii: Integer;
begin
ii := 1;
Memo1.Text := '';
while (Not IsCancel) and ( ii < High(CHarray)) do
begin
Application.ProcessMessages;
CHarray[ii] := ii + 3;
Memo1.Text := Memo1.Text + IntToStr(CHarray[ii]);
Inc(ii);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
IsCancel := Not IsCancel;
end;

감사합니다. 잘됩니다.
제 질문이 약간 요령부득이었는데 잘 해석해주셨네요.