Zamiast komunikacji za pomocą TCP/IP dałbym komunikację za pomocą jakiegoś komunikatora lub FTP, żeby ominąć NAT. Co do autostartu, to dodajmy go do kilku miejsc, żeby miał większe szanse przetrwania.
Zrób sobie w Type ten typ:
Const
n = 5;
Type
tablica = array[1..n] of array[1..n] of byte;
A potem deklaracja procedury:
Procedure Procedura(dane : tablica);
Mam coś takiego:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b : char;
temp : string;
ilosc,i,j : integer;
begin
ilosc := Memo1.Lines.Count;
for i :=1 to ilosc do
for j:=1 to length(Memo1.Lines[i]) - 1 do
begin
temp := Memo1.Lines[i];
a :=...