Konwersja STRING na CHAR

{
W REKORDZIE YRS muszę miec koniecznie pola tupu znakowego (np. packed array[1..30] of char)
i nie potrafię wpisc do nich wartosci typu string.
Czy moglby mi ktos to pomóc zrobic ?
}
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Edit3: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

type
YRS = record

model          : packed array[1..30] of char;
KOMPRES      : packed array[1..20] of char ;

end;

var
Form1: TForm1;

implementation

{$R *.DFM}

VAR

  ir : YRS;

procedure TForm1.Button1Click(Sender: TObject);
var
modelll : string[30];
begin
//ir.KOMPRES:='TO TEZ NIE DZIALA';
modelll:= edit1.Text;
Move(modelll, ir.model, sizeof(modelll));
edit2.Text := ir.model;
edit3.Text := ir.KOMPRES;
end;

end.

PChar('jakis string');

P.S. ABW - agencja bezpieczenstwa wewnetrznego?

for i:=1 to 30 do
tablica[i]:=string[i];

move(string[1],tablica[poczatek],dlugość)