过年送分喽。一个问题(50分)

pcharm := pchar(cboCommand.Text);
pcharn := pchar(formatdatetime('yyyymmdd',now));
pchart := pchar(formatdatetime('hhmmss',now));

for i := 0 to length(cboCommand.Text)-1 do
begin
arecord.Command := pcharm;
end;

for j := 0 to length(formatdatetime('yyyymmdd',now))-1 do
begin
arecord.Date[j] := pcharn[j];
end;

for j := 0 to length(formatdatetime('hhmmss',now))-1 do
begin
arecord.time[j] := pchart[j];
end;
看到这个三个循环了吧，其实都一样的功能，现在想写成一个函数谁能帮忙：）
哈哈

可能是我没说清楚。问题
现在我有这样一个记录结构
type
CommandHead=Record
Command: Array[0..4] of char;
Date: Array[0..7] of char;
Time: Array[0..5] of char;
srcNetAddress: Byte;
srcMachine: Array[0..3] of char;
srcStation: shortint;
destMachine: Array[0..3] of char;
destStation: shortint;
endMachine: Array[0..3] of char;
endStation: Byte;
arcAddress: Byte;
portNo:Byte;
destNetAddress: Byte;
length: Longint;
boardNo: ShortInt;
subBoard: Array[0..1] of char;
end;
要给这些记录里的字段赋值，其中的STRING类型要转换成CHAR类型写到流里面，因为有很多
所以需要写成一个处理的函数。

procedure getText(s: string)
var i: integer;
begin
for i := 0 to s -1 do
begin
……
end;
end;

我是要把STRING专成CHAR的