عنصر 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;