1:

Product  : Array[0..40] of Char;					

1:

Product := Edit1.Text;					

1:
2:
3:
4:
5:
6:

var
  i: integer;
begin
  for i := 1 to length(Edit123.Text) do
    Produkt[i-1] := Edit123.Text[i];
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

function SetPChar(Dest: PChar; const Source: string; MaxLen: Integer): PChar;
begin
  Result := StrLCopy(Dest, PChar(Source), MaxLen);
end;

var
  a: array[0..40] of Char;

SetPChar(a, Edit1.Text, High(a));