Her 4 Satır Sonrasına Boşluk Koymak StringList ile ilgili.

[Jire]

Bir tane stringlistim var ve onun içine her 4 satır sonrasında bir boşluk koymak istiyorum yada bir yazı.
Bunu nasıl yapabilirim yardım ederseniz sevinirim şimdiden teşekkürler.

[true_false]

Kod: Tümünü seç

var
abclist:tstringlist;
runtimelist:TStringList;
i:integer;
begin
  i:=0;
     runtimelist:= TStringList.Create;
     abclist := TStringList.Create;
     abclist.Add('ali');
     abclist.Add('veli');
     abclist.Add('deli');
     abclist.Add('hüseyni');
     abclist.Add('deneme');
     abclist.Add('hebele');
     abclist.Add('ali');
     abclist.Add('veli');
     abclist.Add('deli');
     abclist.Add('hüseyni');
     abclist.Add('deneme');
     abclist.Add('hebele');

    while i< abclist.Count-1 do
    begin
      i:= i+1;
      runtimelist.Add(abclist.Strings[i]);
      if i>= 4 then
      begin
      if ((i / (i div 4)) =4) and (i>=4) then
      runtimelist.Add('AMANın aman');
      end;
    end;
    i:=0;
    for i:=0 to runtimelist.Count-1 do
      ListBox1.Items.Add(runtimelist.Strings[i])
 end;

[Jire]

Teşekkürler.