عنصر memo

[هامان]

با سلام خدمت دوستان من می خواستم بدونم که چه جوری میشه کاراکتر کاراکتر از lineهای یک عنصر memo خواند با چه دستوراتی مرسی

[vcldeveloper]

procedure TForm1.Button1Click(Sender: TObject);
var
Ch : Char;
TempStr : string;
i,j : integer;
begin
for i := 0 to Memo1.lines.Count-1 do
begin
TempStr := Memo1.Lines[i];
for j := 1 to Length(TempStr) do
Ch := TempStr[j];
end;
end;