Hai Para agan dan aganwati
saya bingung pusing keliling ampe jedotin kepala nih

mau tanya program delphi.
gini agan dan aganwati. saya buat program buat sorting dalam memo, berikut coding yang uda saya uda buat.

procedure TForm1.Button5Click(Sender: TObject);
var
sData,sdata1,sdata2,sdata4: string;
iData1,iData2 : Integer;
i,j,jum: integer;
begin
jum:=memo1.Lines.Count;
for i:= 0 to jum-1 do
begin
sData :=memo1.Lines[i];
sdata1:=COPY(memo1.lines[i],5,2); ---> ambil karakter buat jadi integer
iData1:=StrToInt(sdata1);
For j:= 1 to jum-1 do
begin
sdata4:=memo1.lines[j];
sdata2:=copy(memo1.Lines[j],5,2);
iData2 := StrToInt(sData2);
if idata2 < idata1 then
begin
memo1.Lines.Delete(j);
memo1.Lines.move(i,j);
memo1.Lines.insert(i,sdata4);
end;
end;
end;
end;

Nah misalnya di memo saya uda punya data seperti berikut :
No. 3
No. 6
No. 2
No. 1
No. 7

nah mau saya sort by karakter di karakter 5 dan 6 di tiap masing2 lines
pas uda sampe coding dibawah ini hasilnya jadi ngaco
if idata2 < idata1 then
begin
memo1.Lines.Delete(j);
memo1.Lines.move(i,j);
memo1.Lines.insert(i,sdata4);
end;

mohon para master delphi bisa membantu saya problem nya dimana.

Thx b4 and to all